Top 10k strings from Stocks and Shares (1985)(Deryck Banks).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

   8 ;"YOU HAVE NOT GOT ENOUGH MONEY                                    ":
   8 ;"HOW MANY SHARES DO YOU WISH TO  SELL?                                    "
   8 ;"HOW MANY SHARES DO YOU WISH TO  BUY?                                      ":
   8 ;"GAME OVER":
   6 **********************
   6 *(m2))/100
   2 nshz2=1000
   2 nsht2=1000
   2 nshl2=1000
   2 nshg2=1000
   2 m=m-(gs*a)
   2 m2=m2-(gs*a)
   2 ;"WHAT SHARES DO YOU WISH TO SELL?INPUT Z,T,L,OR G"
   2 ;"WHAT SHARES DO YOU WISH TO BUY. INPUT Z,T,L,OR G."
   2 ;"SHARES   NO. OF SHARES   PRICE"
   2 ;"NAME : ";n$
   2 ;"INPUT BUY(B),SELL(S),
   2 *****INSTRUCTIONS*****
   2 ******THIS PUTS A NICE BOX AROUND THE SHARES******    :
   2 *(nshz2))/1000
   2 *(nshz)))/10000
   2 *(nsht2))/1000
   2 *(nshl2))/1000
   2 *(nshg2))/1000
   2 (nshz2))/1000
   2 (nshz))/1000
   2 (nsht2))/1000
   2 (nsht))/1000
   2 (nshl2))/1000
   2 (nshl))/1000
   2 (nshg2))/1000
   2 (nshg))/1000
   1 z$="STOCKS AND SHARES BY DEL BANKS"
   1 nshz=nshz/2
   1 nshz=nshz-a:
   1 nshz=nshz-a
   1 nshz=nshz+a
   1 nshz2=nshz2/2
   1 nshz2=nshz2-a:
   1 nshz2=nshz2-a
   1 nshz2=nshz2+a
   1 nsht=nsht/2
   1 nsht=nsht-a:
   1 nsht=nsht-a
   1 nsht=nsht+a:
   1 nsht2=nsht2/2
   1 nsht2=nsht2-a:
   1 nsht2=nsht2-a
   1 nsht2=nsht2+a:
   1 nshl=nshl/2
   1 nshl=nshl-a:
   1 nshl=nshl-a
   1 nshl=nshl+a
   1 nshl2=nshl2/2
   1 nshl2=nshl2-a:
   1 nshl2=nshl2-a
   1 nshl2=nshl2+a
   1 nshg=nshg/2
   1 nshg=nshg-a:
   1 nshg=nshg-a
   1 nshg=nshg+a
   1 nshg2=nshg2/2
   1 nshg2=nshg2-a:
   1 nshg2=nshg2-a
   1 nshg2=nshg2+a
   1 m=m-(zs*a)
   1 m=m-(ts*a)
   1 m=m-(ls*a)
   1 m=m+(zs*a):
   1 m=m+(zs*a)
   1 m=m+(ts*a):
   1 m=m+(ts*a)
   1 m=m+(ls*a):
   1 m=m+(ls*a)
   1 m=m+(gs*a):
   1 m=m+(gs*a)
   1 m2=m2-(zs*a)
   1 m2=m2-(ts*a)
   1 m2=m2-(ls*a)
   1 m2=m2+(zs*a):
   1 m2=m2+(zs*a)
   1 m2=m2+(ts*a):
   1 m2=m2+(ts*a)
   1 m2=m2+(ls*a):
   1 m2=m2+(ls*a)
   1 m2=m2+(gs*a):
   1 m2=m2+(gs*a)
   1 d$="NEWSFLASH...                    TAX REFUND......................WITHDRAWN TILL FURTHER NOTICE..................................."
   1 d$="NEWSFLASH...                    TAX REFUND..................... 60% OF BANK BALANCE............................................."
   1 d$="NEWSFLASH...                    TAX REFUND..................... 20% OF BANK BALANCE............................................."
   1 d$="NEWSFLASH...                    TAX INVESTIGATION...............LOSE 90% OF BANK BALANCE........................................"
   1 d$="NEWSFLASH...                    TAX INVESTIGATION...............LOSE 70% OF BANK BALANCE........................................"
   1 d$="NEWSFLASH...                    TAX INVESTIGATION...............LOSE 60% OF BANK BALANCE......................................."
   1 d$="NEWSFLASH...                    TAX INVESTIGATION...............LOSE 50% OF BANK BALANCE........................................"
   1 d$="NEWSFLASH...                    TAX INVESTIGATION.............. CANCELLED TILL FURTHER NOTICE.................................."
   1 d$="NEWSFLASH...                    GOOD NEWS FOR ALL ZINC HOLDERS  ................................ONE SHARE FOR EVERY TWO HELD...................................."
   1 d$="NEWSFLASH...                    GOOD NEWS FOR ALL TIN  HOLDERS  ................................ONE SHARE FOR EVERY TWO HELD...................................."
   1 d$="NEWSFLASH...                    GOOD NEWS FOR ALL LEAD HOLDERS  ................................ONE SHARE FOR EVERY TWO HELD...................................."
   1 d$="NEWSFLASH...                    GOOD NEWS FOR ALL GOLD HOLDERS  ............................... ONE SHARE FOR EVERY TWO HELD..................................."
   1 d$="NEWSFLASH...                    CAPITAL GAINS INVESTIGATION     ................................LOSE ONE SHARE FOR EVERY TWO    HELD............................."
   1 STOCKS AND SHARES BY DEL BANKS
   1 Created with Ramsoft MakeTZX
   1 ;p$;" HAS `";m2
   1 ;n$;" HAS `";m;
   1 ;"YOU HAVE `";m:
   1 ;"TYPE IN YOUR NAME":
   1 ;"TYPE IN YOUR NAME PLAYER 2":
   1 ;"TYPE IN YOUR NAME PLAYER 1":
   1 ;"NAME : ";p$
   1 ;"MONEY=`";m2
   1 ;"MONEY=`";m
   1 ;"INPUT NO OF PLAYERS(1
   1 ;"AT THE END OF ROUND ";r
   1 ***IF THE BEEPING ON THE NEWSFLASH ANNOYS YOU OMIT THE BEEP STATEMENT*****
   1 ****A TIP FOR TYPING THIS IN IS THAT LINE 9002 IS THE SAME AS LINE 9004ETC...AND LINE 9003 IS THE SAME AS LINE9005ETC...IT CARRIES ON LIKE THIS UNTIL THE LAST LINE WHICH IS DIFFERENT*****:
   1 *****STOCKS&SHARES****
   1 *****DERYCK BANKS
   1 ******I HAVE STUCK THIS LITTLE TUNE IN COS I LIKE IT AND IT ADDS A BIT OF EXCITEMENT TO THE PROGRAM*******:
   1 ***********BY*********
   1 ** THIS IS DONE     **
   1 ** THIS GAME CAN    **
   1 ** THEM AT A HIGHER **
   1 ** THE IDEA OF THE  **
   1 ** SHARES AT A LOW  **
   1 ** PRICE,THUS MAKING**
   1 ** PRICE AND SELLING**
   1 ** PLAYERS.         **
   1 ** ONE OR TWO       **
   1 ** GAME IS TO MAKE  **
   1 ** BY BUYING        **
   1 ** BE PLAYED BY     **
   1 ** AS POSSIBLE..    **
   1 ** AS MUCH MONEY    **
   1 ** A PROFIT....     **
   1 *(nshz))/1000
   1 *(nsht2))/1000000
   1 *(nsht2)))/10000
   1 *(nsht))/1000000
   1 *(nsht))/1000
   1 *(nsht)))/10000
   1 *(nshl2)))/10000
   1 *(nshl))/1000
   1 *(nshl)))/10000
   1 *(nshg2)))/10000
   1 *(nshg))/1000
   1 *(nshg)))/10000
   1 "       STOCKS&SHARES                         BY                         DERYCK BANKS"